Eklenecek nesneler; label1(X), label2(Y), label3, label4 shape1- shape özelliğinden circle seçiyoruz, Image1(yukarı ok), Image2(aşağı ok), Image3(sola ok), Image4(sağa ok) --> Module Açıyoruz En so...
Saniye ilerledikçe saniyeyi gösteren Label nesnesi kayıyor.. Eklenecek Nesneler; Label1, Timer1 (Timer1'in Interval özelliğini 1000 yapıyoruz) Private Sub Form_Load() Form1.Caption = Time Label1.Capti...
Eklenecek Nesneler; CommonDialog1, Text1 (yazı buraya yazılacak) (Yazı yazıldıktan sonra text kutusuna tek tıklamada renk paleti geliyor ve istediğimiz rengi seçip yazı rengini değiştirebiliyoruz...) ...
Text kutusuna girilen yazıdan seçmiş olduğumuz karakterleri büyük veya küçük harfe çevirebiliyoruz.. Eklenecek nesneler; text1(yazı buraya yazılacak), command1(büyük harfe çevir), command2(küçük harfe...
Doğum tarihini giriyorsunuz ve hangi gün doğduğunuzu öğreniyorsunuz... (Form'a hiçbir şey eklemiyoruz) Private Sub Form_Load() Dim d_tarih, gun Do d_tarih = InputBox("Doğum Tarihinizi Giriniz : &...
Eklenecek nesneler; timer1, shape1 (timer1'in interval özelliğini 10 yapıyoruz) (shape1'in shape özelliğini circle seçiyoruz) Private Sub Timer1_Timer() Static ax, ay If IsEmpty(ax) Then ax = 50 ay = ...
Proje çalıştırıldığında form titremeye başlıyor.. Eklenecek nesneler; timer1 ( Interval özelliğini 1000 YAPMIYORUZ!! ) Private Sub Form_Load() Timer1.Interval = 22 End Sub Private Sub Timer1_Timer() F...
Proje çalıştırıldığında form sol üst köşeden sağa ve aşağıya doğru kayarak açılıyor... Eklenecek nesne; timer1 (Timer1'in Interval özelliğini 1000 yapıyoruz) Private Sub Form_Load() Form1.Height = 0 F...
Girilen para miktarındaki banknotları bulup ekrana yazdıran program. Eklenecek nesneler: text1, command1 Private Sub Command1_Click() Dim i, j Cls i = Val(Text1.Text) j = Int(i / 100) Print j; " ...
Arkadaşlar örnek bir ışıklandırma işlemi. Gerçi bu işlem gerçekte sayıcılarla yapılıyor olsada minyatür bir lamba diyebiliriz. 😉 '2 tane label '1 tane timer '3 tane shape ekleyin ve kodları yapıştırı...
Index'li tane 9 tane combobox ekleyelim Toplamlar için 6 adet label ekleyelim Form'un gözükmeyen kısmına 1 adet listbox ekleyelim Dim i, a, b As Integer Private Sub Combo1_click(Index As Integer) If I...
Formumuza 1 Tane Label , 1 Tane Text Box , 2 Tane Command , 1 Tane Timer ( İnterval özelliği 1000 Olacak ) Ekleyelim. Command 1 Caption Özelliğine Başla Yazalım Command 2 Caption Özelliğine Çıkış Yaza...
Evet Arkadaşlar Başlıktanda Anlıyacağınız Gibi Silkroadla İlgili Bütün Linkleri Bir Koduda Topladım Alttaki Resimlere Bastığınız Anda Yüklemek için Gerekli Olan Bölüme Aktarılacaksınız Veya Direkman ...
Evet Arkadaşlar kısa Bir Uüraşım Sonucu Extra TV yi yazmayı başardım 😊 Peki Nedir Bu extra TV ? Extra Tv internet üzerinden Televizyon seğretmenize Yarıyan bir Programdır... Sadece Televizyonmu? Hayı...
Arkadaşlar Bir Gün önce Çıkarmış Olduğum EXTRALOOB 1.0 ın sizlerden Gelen Yapıcı Eleştiriler Sayesinde Bir Üst Versiyonu 2.0 ı Geliştirdim... Peki Nedir Bu V2 nin özellikleri ? -Görünüm Tamamen Değişt...
Resimleri Takip Ederek Siteye İstediğiniz İmzayı Koyabilirsiniz 😉 - Resim Silinmiş. - Resim Silinmiş. - Resim Silinmiş. - Resim Silinmiş. Not: 1) Avatar için imzanın bir üstündeki yere clickleyin ve...
Merakla İzlenen Harry Potter Filmlerinin En Yenisi Olan Melez Prens Bu yıl Gösterime Giriyor... http://entertainment.tr.msn.com/
Arkadaşalar başka bir pc ye rahata ulaşıpp yardımcı olabileceğiniz müthişbir program umarım daha önce verilmemiştir... Bu Virüs Tarama Sonucu... http://www.virustotal.com/analisis/0cbeea5d11bd9b62bbe7...
Arkadaşlar NFS nin yenii oyunun traileri sonunda böyle bir site gördüm bu ne anlama geliyor sürekli aynı şeyleri tekrarlayıp duruyorlar adamlar birbirlerini pata küte dövüyor sonrada bi menü çıkıo değ...
Arkadaşlar Ben Çok kısa bir süre önce autoite başladım... Şimdi ise bir butona basıp bir internet adresine gnderebileceğim bir kod arıyorum yardımcı olursanız çok amaç çok seinirim şimdiden teşekkürle...